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DI3K REVOLUTION TEST 



PART NO. 
PAGE 



51296UU 
1 



EBR LOC OBJECT CODE 



ADDH STMT SOURCE STATEMENT 



OAOO 



OAOO AOD1 

OA02 00C1 

0AG4 00 00 

OA06 0A10 

0Au8 FFFF 

OAOA AOOOOO 

OAOD B01000 



&A10 01 
OAU 00 
0A12 0D5C 

0A14 38 02 020B 

0A18 CO 10 0216 

0A1C 38 20 LAO? 

0*20 CO 90 C216 

0A24 CO 87 021A 
OA28 01 
0A29 OC 
0A2A 0DD8 

0A2C 3C 00 12EF 

OA30 3C 80 0A90 

0A34 CI AO CA6C 

0A33 31 A4 12E3 

0A3C 31 A6 12E5 

0A40 F3 AO 00 

OA43 CI A2 0A43 

0A47 30 A2 0AC2 

0A4B 38 10 CAC2 

0A4F CO 10 CA47 

0A53 38 40 0AC2 

0A57 F2 90 25 

0A5A 31 A6 12E7 

0A5E F3 A1 00 

0A61 CI A2 0A61 

0A65 CI AO 0A6C 

0A69 F2 87 23 



0A6C CO 87 C21A 
0A70 C6 
0A71 17 
0A72 12E1 
0A74 AOFE 
0A76 CO 87 022^ 
CA7A AOFF. 
0A7C T.i 87 10 

0A7F CO r./ 02U 

0A83 C6 

0A34 26 

OAtfS 1315 

0AS7 A005 

0A89 CO 37 0222 

0A6D A0C5 

0A8F CG 80 0D60 

CA9 3 CO 87 0A14 



UA^I 
0A03 
0A05 
0AC7 
OA09 
OAOC 
OAOF 



UA10 
0A11 
0A13 



0P28 
0A29 
0A2B 



0A70 
0A71 
0A73 
0A75 

0A7B 



0AR3 
0A84 
0A86 
0A89 

0A8H 



2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
1* 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
3 3 
34 

3 5 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 

4 6 
47 

4 8 
49 
50 
51 
52 
53 
54 

5 5 
56 
57 

5 8 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 

6 9 



DECK 4 
A0D1 START X« AOO ' 

* * 

* SYSTEM/3 DISK REVOLUTION TEST * 

* * 
**+**»*****************♦*#»**********»**«*****#**♦****»*****»**»****#** 

2r ;L2':.0D1« PROGRAM IDENTIFICATION 

DC XL2'OO0T -FLAGS 5 CURRENT RTN NUMBER 

DC XL2'0 t .RESERVED 

DC AL2(RTN01) 

DC XL2'FFFF« .ERROR RECORDING TABLE ADDR 

DISK1 DC XL3'AO00O0« .SECTION UDT ENTRIES 

DISK2 DC XL3'B01000' 

* ROUTINE 1 * 
*********************************************************************** 

RTN01 DC XLTOT .ROUTINE1 

DC XLTOO" 

DC AL2(RTN02) 

♦♦♦i-******************************************************************* 



"ESTA1 



TESTB1 



SSUSY1 

SEEKD1 



RBUSY1 



NTRDY1 



TBN 

ET 

TBS 

BF 

E 

DC 

DC 

DC 

MVI 

MVI 

TIO 

LIO 

LIC 

SIO 

TIO 

SNS 

TEN 

BT 

TBN 

JF 

LIO 

SIC 

TIO 

TIO 

J 



E 

DC 

DC 

DC 

DC 

B 

DC 

J 



FECAL1 B 
DC 
DC 
DC 
DC 
B 
DC 

'HC 

P 



RET BR 



S3YTE3,X'02' 

LINK 

DISK1-1,X'20' 

LINK 

PRINT 

XL TOT 

ILT12' 

AL2 (DISKA) 

RDIT + 3,X«00' 

RETER+I.X'SO' 

NTRDifl, X' AO' 
DAR,X' A4' 
RECL,X' A6« 
X'OO' ,X'A0' 
SBUSY1.X' A2' 
BITCHK,X' A2" 
BITCHK,X« 10« 
3EEKD1 

3ITCHK,X'40' 
RECAL1 
rP.X' A6' 
X'OO' ,X' AT 
R?USY1,X' A2' 
NTRDY1.X' A0« 
STA3T1 



PRINT 
XL1 'C6' 
ILT23' 

AL2fPNTRDY) 
XL2' AOFE' 
HALT 
XL2*AOFS' 

RETBR 

t=F 1ST 

XLTC6' 

ILT38' 

AL2 (CALDSK) 

XL2'A005' 

HALT 

XL2' A005* 

TES?A2,X»80» 

TESTA1 



IS SSW 1E ON? 
IF SO 3 TO LINK TO RTN 2. 
. TLST IF PRIMARY DISK IS 
ATTACHED. IF NOT, LINK TO 
ROUTINE 2. 



-REINIT TO X'OO' TO READ 

. SET UP TO RETURN TO TESTB1 
AFTER NTFDY OR RECAL MSG. 



SEEK TRK 



.LOOP TILL SEEK BUSY DROPS 



READ SECTOR 



IF NO-CP, RETURN TO TESTA1 
ELSE RETURN TO TESTA!. 



DATE 
EC SO. 



1 3MAR70 
571512 



06APR70 
571516 



28 APR71 
571565 



PROG ID 
PAGE 



0A0D-1 

1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



A0D1 



DISK REVOLUTION TEST 



PAST NO. 
PAGE 



5129644 
1A 



ERR ICC OBJECT CODE 



ADDS STMT SOURCE STATEMENT 



0A97 
0A97 



0A97 C2 


03 0A97 


0A9B 3C 


A3 3AAF 


0A9F 3C 


A3 )BA4 



0AA3 
0AA7 

OAAB 
OAAE 
0AB1 
0AB4 
0AB8 
OABB 
OABD 
OABF 
0AC1 
0AC3 
0AC3 
0AD3 
OADB 
0AE3 
OAEB 

OAEF 
0AF3 
0AF4 
OAFS 
0AF7 
0AF9 
OAFD 
OAFF 



0BO3 
0B07 
OBOA 
OBOE 



0B11 
0B15 
0B16 
0B17 
0B19 

0B1B 
0B1F 

0B21 
0B25 
0B2B 
0B31 
0B37 
0B3B 
0B3E 
0B42 
0B48 
0B4E 
0B54 

0B5a 

0B5B 
0B61 



AC 01 29 25 
AE 01 29 27 
F2 AO 41 
BO A3 2B 
B8 08 2A 
CO 90 0AA7 
F2 87 48 
D4FF 
000 1 
0000 

oooo 

C9D5C4C5E740C2C9 
E340C8C1E240D5D6 
E340C1D7D7C5C1D9 
C5C440C9E540D3C1 
E2E340F44CE2C5C3 
D6E5C4E2 

CO 87 021A 

C6 

2C 

OAEF 

A039 

CO 87 0222 

A089 

CO 87 OAA 3 



38 
F2 
3C 
¥2 



01 
90 
00 
37 



0208 
C7 

0DF3 
14 



CC 87 C21. 

47 

2C 

0F02 

A0F9 



CO 87 
A0F9 



30 
OC 

oc 
oc 

3D 

F2 
3C 
OE 
Of> 
06 
3D 
F2 
OF 
CO 



00 
01 
3 
01 
OF 
04 

01 
3 
01 
00 
81 
00 
01 



0222 



JDF3 

0jF9 

0ED6 

0C90 

0DF3 

C4 

0DF3 

0BF9 

OEDt 

OC90 

r !F3 

0/ 

0DF3 

0B42 



0BF7 
0BB9 
0BB9 



0F06 
OFOA 
OFOH 



0B3 3 



OABC 
OABE 
OACO 
0AC2 

OAEE 



0AF3 
0AF4 
0AF6 

OAFS 

OAFE 



0B15 
0316 
0B18 
0B1A 



0320 



0B65 3H 01 0208 



70 

71 

72 

73 

74 

75 

75 

75 

75 

76 

77 

78 

79 

30 

81 

82 

83 

84 

85 

86 

87 

87 

87 

37 

P7 

87 

3 3 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

1 CR 

109 

1 10 

1 11 

1 12 

1 13 

1 14 

1 1* 

1 16 

1 17 

1 1H 

1 19 

120 

121 

122 

123 

124 

125 

126 

127 

128 

W9 



START! 



RETRY 
L00P1 

CKDISK 



XD4FF 
X0001 

K.OUNT 

BITCHK 

PRINT1 



USING 

USING 

LA 

KVI 

MVI 



KVC 
ALC 
JOL 
SNS 
TPN 
B! 
J 

DC- 
DC 
DC 
DC 
DC 



RADBir 



3ITOK 



GOCN 



DC 

DC 

DC 

DC 

E 

DC 



TBN 
JF 
?! VI 
J 



E 

DC- 
DC 
CC 
DC 



DC 



KVC 

KVC 

KVC 

CLI 

JNH 

KVI 

ALC 

A" 

hZ 

CLI 

JF 

SIC 

i?N.*, 



N T i K P E V TPN 



SWSKr 



SETNUM 



START1 ,X81 
START1.XR2 
START1,X'03' 
CKDISK+1,X'A3 ' 
SWDISK*1,X'A3 



KOUNT (,XR2) ,XD4FF (2,XR2) 

KOUNT (,XR2),X0001(2,XR2) 

BADBIT 

BITCHK (,XR2) ,X< A3' 

3ITCHK-1 (,XR2) ,X' 08' 

LCCP1 

BITOK 

XL2'D4FF« 

XL2'0001 • 

XL2'0« 

XL2'0 ' 

CL44 1 INDEX SIT ;iAS :«0T APPEAR; 



SET UP BASE FOR XR1 5 XR2 



INIT XR1 & XR2 



.NEED X'2E0O' PASSES THRU 
LOOP FOR 100 REVOLUTIONS 
OF DISC. IF NO BIT SENSED 
IN 100 REVOLUTIONS, ASSUME 
"At INDEX BIT. 

.IF BIT PRESENT, 



PROCEED TO 



LAST 4 SECONDS' 



PRINT 
XL1 'C6' 

I L ". ' 4 4 • 

AL2 (PRINT1) 

XL2*A089» 

HALT 

XI.2' A089' 

RETRY 



SBYTSO,X' 01 1 

GOON 

WORK, X'OO ' 

SW7SKP 



PRINT 
XL1 '47' 
I L 1 ' 4 4 ' 
AL2 (TEST01) 
XL2' A0F9' 

HALT 
XL2' A0F9 ■ 

WORK, X'OO' 

ETA3L1 ,ATABL1 (2) 

TOTREV, DTCFIL-4 (4) 

DIVISR,"ECFIL-4(2) 

WORK, X' OF' 

SETNIJfl 

W O R K , X ' • 

ETA3L1 , S¥SF?1 (2) 

TOTREV (4) ,DU 100 (4) 

DI VISP (2) ,D0 100- 2 (2) 

WORK, X'OO ' 

N UK REV 

W R K , S F. ( 1 ) 

SETNUH 

SQYTF.O, X" 01' 



F::INT Ct! 
P31N71 



T SESS 
A30VE 



AGE 
AND 



IN 
HALT 



HALT RESET, RE-TRY AGAIN 



.CHECK IF SSW7 IS ON. IF NOT, 
'JO ON WITH THE PR'J.iHA^. IF YES, 
SKIP PRINTOUT AND DEFAULT TO 
TI.IING 100 REVOLUTIONS. 



. I N I T I A L I ; 



;VCKF. DEFAULT IF > OF 



iETERKINE 
' EV'^L'u'T in; 



HOW 



! AN Y 

T I -1 . 



•'c.< 



.'7 I: 



OS. 



NC 



DATE 
EC NO. 



1 JMAR70 
57151. 



06APK70 
57 '5 16 



2 3APP71 
57 156 5 



PROG IP 
PAGE 



OAOD- 1 
1A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



5129644 
2 



A0D1 



DISK REVOLUTION TEST 



ERR LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



0B69 


F2 90 


CD 


0B6C 


CO 37 


021A 


0B70 


U6 




0B71 


21 




CB72 


0ED6 




0B74 


A0F9 




0B76 


F2 87 


C8 


CB79 


CO 87 


021A 


0B7D 


06 




0B7E 


21 




0B7F 


0ED6 





OB70 
0B71 
0B73 
0B75 



0B7D 
0B7E 
0B80 



0B89 



0B81 


C2 


02 


C389 


0E85 


C2 


01 


i a 1 2 


0B89 


36 


01 


OBP5 


0B8D 


34 


01 


CBEF 


0B91 


OD 


01 


OBEF 


0B97 


CO 


"31 


OEFA 


CB93 


6C 


01 


01 2C 


CB9F 


6E 


01 


01 2A 


OBA J 


BO 


A3 


33 


0BA6 


B3 


08 


3 A 


CEA9 


EO 


90 


16 


OEAC 


F2 


87 


CO 


OPAF 


EO 


87 


00 



0BB2 OC 1 

0B34 00C2 

0BB6 FGF0FOF0F3F0F4F0 

OBBE F3F0F-FC 

0BC2 00 

0BC3 0000 

0BC5 00 

0BC6 FOFOFOFOFOFOFOFO 

OBCE FO 

OBCF FOFCFGFOFOFOFOFO 

0BD7 FO 

0BD8 FOFOFOFOFOFOFOFO 

OBEO FOFOFOFO 

0BE4 FO 

CBE5 FOFOFOFOFOFOFOFO 

OBED FO 

CBEE 0000 

OBFO 0000 

0BF2 0CC8 

0BF4 0000 

0BF6 1416 

0BF8 0000 



OEFA 3C 80 0C25 
OBFE OC 27 03EC OBED 
0C04 C2 01 1414 



0BE3 
03B5 
033D 
0BC1 
0BC2 
03C4 
0BC5 
OBCD 
OBCE 
0BD6 
03D7 
0BE3 

0BE4 
OBEC 
OBED 
OBEF 
03F1 
0BF3 
0BF5 
0BF7 
0BF9 



130 
131 
132 
133 
13a 
135 
136 
137 
138 
139 
140 
141 
1i)2 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
173 
174 
175 
176 
177 
17° 
179 
180 
181 
182 
133 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 



G00N2 



GC0N3 
BUMP1 



TST3IT 
SWDISK 



DUXMY 



JF 

B 

DC 

DC 

DC 

DC 

J 

B 

DC 

DC 

DC 



USING 

LA 

LA 

A 

ST 

CLC 

BE 

MVC 

ALC 

SNS 

TEN 

EF 

J 

B 



ONE 
TWO 
DECFIL 
D304C 

CHK3IT 

MAXVAL 

MINVAL 

TCTVAL 



HEDVAL 

DRESET 

3AVXR1 

SAVXE2 

EIGHT 

COUNT 

ATABL1 

ETABL1 



GOCALC 



DC 
DC 
DC 
EC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC- 
DC 
DC 
DC 
DC 
DC 
D~ 
DC 



GO0N2 
PRINT 
XL1 '46' 
ILV33' 

AL2(TOTBEV) 
XL2'A0F9' 

GOON3 
PRINT 
XLV06' 
ILI'33' 
AL2 (T0T3EV) 



3UMP1 ,XR2 

BUMP1. <R2 

TABL 4,XR1 

TWO. I 

SAVXK 1,XH1 

SAVXR1 (2) ,ETAEL1 

GOCALC 

1 (2,XR1) ,TWCv H2) 

1 (2.XR1) ,0NE(,XR2) 

CHKBIT (, XR2) ,X' A3" 

CHK3IT-1 (»XR2) ,X"08' 

T5TBIT (,XS2) 

DUMMY 

3UMP1 (,XH2) 



GO ON WITH THE PROGRAM. IF YES, 
PRINT ID WITH THE DEFAULTED 
NUMBER OF REVOLUTIONS TIMED. 



R2- INITIALIZE XR2 
ALLOW FOR FIRST SENSE 
BUMP POINTER TO NEXT LOC 
CHECK IF AT END OF TABLE 

IF YES, GO DO THE 

CALCULATIONS 
ZERO OUT TAELE LOCATION 
, ADD ONE TO COUNTER 
.CHECK IF INDEXING BIT ON, 

IF NOT, CYCLE ONE MORE 

TI»E. IF YES, CHECK IF 

ALL CHECKS MADE. 



XL2 
XL2 
XL8 
DL4 
XL1 
XL2 
XL1 
DL8 
XL1 
DL8 
XL1 
DL1 



XL1 
DL8 
XL1 
XL2 
XL2 
XL2 
XL2 



000 

000 

FOF 

304 

00' 

000 

00' 

0' 

FO' 

0' 

FO' 

•0' 



1 ■ 

2' 

OFOFOF3FOF4F0' 

0' 



FO' 
'0' 
'FO' 
'00' 
'00' 
'0003' 
•OOOC 

AL2 (TABLED 

XL2'0' 



MVI ONC5+I,X'90' 

KVC DRESET-1, DRESET (40) 

LA TABLE1-2.XR1 



.SET UP TO INIT MIN&MAXVnL 
•ZERO OUT PREVIOUS VALUES 
-INIT XR1 TO COUNTER TABLE 



THE PROGRAM WILL GC THROUGH L00P2 UNTILL ALL TA3LE ENTRIES 
ARE A^DED UP. FOR EVERY TRIP THROUGH L00P2, THE PROG GOES 
THROUGH L00F3 APPROX IM ATRLY 1,000 TIMES. EACH TIMING 



DATE 
EC NO. 



1 JMAR7C 
571512 



06APR7C 
571516 



28AP371 
57151.5 



PROG ID 
PAjft 



0A0D-1 
2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



A0D1 



DISK REVOLUTION T T .ST 



PART 

PAGE 



NO. 



512961IH 
2A 



ERH LOC C3JECT CODE 



ADDR STMT SOURCE STATEMENT 



ocos 


OC 


07 


0DF3 


OBBD 


OCOE 


D2 


01 


02 




OC11 


4F 


01 


01 0BP3 


0C16 


CO 


82 


0C24 




OCU 


06 


43 


CDF3 


03C1 


OC20 


CO 


87 


0C11 




0C24 


F2 


80 


10 




0C27 


OC 


07 


03D6 


0DF3 


0C2D 


OC 


07 


OBCD 


0DF3 


OC33 


3C 


87 


0C25 




OC37 


06 


47 


0BE3 


0DF3 


OC3D 


OD 


07 


0DF3 


03D6 


OC43 


F2 


02 


C9 




0C46 


OC 


07 


03D6 


0DF3 


0C4C 


F2 


87 


OF 




0C4F 


OD 


07 


0DF3 


OBCD 


OC55 


F2 


04 


C6 




0C58 


OC 


07 


OBCD 


0DF3 


OC5E 


07 


30 


0ED6 


0C6E 


OC64 


CO 


01 


OCOS 





0C6 8 
0C6C 
0C72 
0C78 
0C7B 
0C81 
0C84 
0C8A 
0C8E 
0C8F 
0C91 
0C97 
0C9D 
0CA3 
0CA9 
OCAF 
0CB5 



3C 

OC 

OD 

F2 

07 

F2 

06 

CO 

F1 

F0F1 

OC 07 



FO 
06 
01 
81 
01 
04 
70 
8 7 



OC 

oc 
oc 

0A 

OA 
OA 



06 
06 
06 
06 
06 
06 



OCbB 


CO 87 


OCBF 


01 


OCCO 


40 


0CC1 


0E35 


0CC3 


CO 87 


0CC7 


01 


0CC8 


40 


0CC9 


0ET5 


DCCB 


CO 87 


OCCF 


06 


OCDO 


40 


OS. D 1 


3EB5 



OB EC 

OBED 

0C90 

16 

OBDF 

13 

OBEC 

0C7B 



OBEC 
CEOA 
CE4A 
CE8A 
OEOA 
CE4A 
CE8A 



C21A 



021A 



C21A 



OBEC 
0FO8 

OC90 

0C8E 



OBDF 
ODEB 
ODEB 
ODEB 
0BD4 
OBEC 
OBCB 



0C8E 
0C90 



OCBF 
OCCO 
0CC2 

0CC7 
0CC3 
OCCA 

OCCF 
OCDO 
0CD2 



OCI, 3 OD 06 CEOA 0E2B 



197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
2C8 
209 
?10 
.'11 
212 
213 
214 
21> 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
249 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 



* 

L00P2 
L00P3 



ONCE 



LOOP IS 30.40 MICROSECONDS LONG AND THE NUMBER OF TIMES IT 
HAS TO GO THROUGH THE LOOP IS (40,000 US /REVOLUTION)/ 
(30.40 US/LOOP) = APPROX 1,000 LOOPS / REVOLUTION. 



SINCE 
LC0P2 

MVC 

LA 

SLC 

EL 

AZ 

B 



KON' 



K0NT3 



K0NT4 



DIVIDE 



DIV 



DEC0 1 
DIVISR 
EDIV! 
EDIV 



AMINPR 



AMEDPR 



AMAXP8 



JC 
MVC 
KVC 
MVI 

AZ 

CLC 

JNL 

MVC 

J 

CLC 

JNH 

MVC 

SZ 

BNZ 



KVI 

KVC 

CLC 

JE 

SZ 

JNh 

AZ 

B 

DC 

DC 

MVC 

KVC 

MVC 

KVC 

ED 

ED 

ED 



E 

DC 
DC- 
DC 
E 

DC 
DC 
DC 
E 

DC 
DC 
DC 



IE ARE 
100 

H0RK(8) 
2 (, XR1) 
1 (,XR1) 

ONCE 
WORK (8) 
L00P3 



THING 100 REVOLUTIONS, 
TIES AND THROUGH L0OP3 

,DECFIL 

,XR1 

,CNS(2) 

,D3040 (4) 



KONT2,X'80' 
MINVAL.WOSK (8) 
MAXVAL. WORK (8) 
ONCE+1 ,X , 37' 

TOTVAL (12) ,SQRK (3) 

WORK (8) .MINVAL 

K0NT3 

MINVAL, WORK (8) 

KCNT4 

WORK (3) ,MAXVAL 

K0NT4 

MAXVAL,WORK (8) 

TCTREV (4) .DECC1 (1) 

LO0P2 



MEDVAL, X« FO' 

MEDVAL-1, MEDVAL (7) 

DIVISR (2* ,D0100-2 

EDIV1 

TOTVAL- 4 (8), DIVISR (2) 

EDIV 

MEDVAL (3) , DEC01 (H 

DIV 

XL1 »F1 ■ 

XL2'F0F1 • 

MECVAL (9) ..TOTVAL-4 

MINMS2,EDMASK (7) 

MEDHS2.SDMASK (7) 

MAXKS2,EDMASK (7) 

MINMS2 (7) ,MINVAL-2 

KEDMS2 (7) ,HEDVAL 

MAXMS2 (7) ,MAXVAL-2 



PRINT 
XL1 '01 ' 
Ii . •{).'«• 
AL2 (MINMSK) 
PRINT 
XLI'01' 
IL1 '64' 
AL2 (MEDMSK) 
PRINT 
XL1 '06' 
Ti-1 '64' 
AL2(MAXMSK) 



THE PRCG GOES THROUGH 
1,000 TIMES PER LO0P2 

. RE-INITIALIZE WOPK 
. SET UP NEXT COUNTER 
•STAY IN THIS LOOP UNTILL 
THE TIME ?CB ONE REVOLUT- 
ION IS ALDED UP 



■FIRST TIME THROUGH THE 
VALUE IS PUT IN BOTH BIN 
AND MAX VALUE SLOTS. 



•THE INDIVIDUAL REVOLUTION 
TIME T S »ODED TO THE TOT 
TIME REGISTER FOR KEDVAL 
6 CHECKED AGAINST PRESENT 
VALUES OF MIN & MAX. THE 
PRESENT VAL REPLACES PREV 
VALUES IF MIN OR MAX IS 
SURPASSED . 

-CHECK IF ALL VALUES ARE 
C^MPAFED AND TRANSLATED 
TO MICROSECONDS 



SET UP EDITING MASKS FOR 
THE MIN, MED, AND MAX 
VALUES 

£DIT VALUES OF MIN, MED,S 
MAX INTO THE MASKS. NOTE: 
MEDVAL IS ALREADY SHIFTED 
BY DIV LOOP OR 3Y EDIV 1 



PRINT 
MED, 



OUT 
AND 



VALUES OF KIN, 
MAX VALUES 



COMPHI CLC MINMS2 (7) ,MISMSK- 10 



.if :i i ; 



REV 



:me 



.ESS 



DATE 
EC *0. 



13MAR7C 
5". 1512 



06APR7C 
571516 



23APH71 
571565 



PROG 
PAGE 



ID 



OAOD-1 
2A 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 



FART NO. 

PAGE 



51296«»« 
3 



A0D1 



DISK REVOLUTION TEST 



ERR LCC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



0CD9 
OCDC 
OCEO 
0CE1 
0CE2 
OCEU 
0CE6 
OCEA 
OCEB 
OCEC 
OCEE 
0CF4 
0CF7 
OCFD 
OD01 
0D05 
OD06 
0D07 
0D09 

ODOF 
OD13 

OD15 
OD" 
ODU' 
OD23 
0D24 
OD25 
0D27 
0D29 
0D2D 
OD2E 
OD2F 
OD31 
0D37 
OD3A 
OD40 
0D44 
0D48 
0D49 
OD4A 
0D4C 

0D52 
0D56 



02 
37 



F2 

CO 

C1 

32 

11C6 

A096 

CO 87 

81 

32 

11F8 

OD 01 



61 
01 
87 
87 



F2 

OE 

CO 

CO 

86 

32 

12C0 

OC 01 

CO 37 
A096 



, 
87 



; 

CO 
CO 

ci 

32 

0F3C 

A095 

CO 87 

81 

32 

0F6E 

OD 01 



81 
01 
87 
87 



F2 

OE 

CO 

CO 

86 

32 

1194 

OC 01 

CO 87 
AC95 



39 
C21A 



021A 



OCED 

CA 

OCED 

CCE6 

021A 



12C4 
12C2 



OCED 12C6 
0222 



CE8A 
C216 
021 A 



021A 



0D30 

OA 

CD30 

0D29 

C21A 



OEAE 



0D58 CO 87 0216 



0D5C 

od:o 

0D5E 



02 
00 
FKFF 



01)60 

0D64 
0D67 
0D63 
0D6E 



38 
F2 
38 
F2 
CO 



01 
10 
2 
10 
87 



020B 

C7 

OACE 

05 

C22A 



12C8 
12C2 



0D3G 12CA 
0222 



OCEO 
0CE1 
0CE3 
0CE5 

OCEA 
OCEB 
OCED 



0D05 
0DO6 

0D08 



0D14 



0D23 
0P< 24 
0D26 
0D23 

0D2D 
0D2E 
0D30 



0D48 
0D49 
0D4B 



0D57 



0D5C 

0D5D 
0D5F 



265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

261 

282 

283 

284 

285 

286 

267 

2 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

3 04 

305 

306 

307 

308 

3C9 

310 

311 

312 

313 

314 

314 

315 

316 

317 

318 

319 

320 

321 

32 1 

322 

32 3 

324 

325 

J26 

327 

328 

329 

3 30 



FSTPR1 



FSTPR2 



FSTPRT 



FSTPR3 



FSTHL: 



JNL 

B 

DC 

DC 

DC 

DC 

B 

DC 

DC 

DC 

CLC 

JE 

AI.C 

B 

E 

DC 

DC 

DC 

MVC 

8 

nc 



8 8 COKPLO CLC 
ENH 

SLCPR1 B 
DC 
DC 
DC 
DC 

SLGPR2 E 
DC 
DC 

SLOPHT DC 
CLC 
JE 
ALC 
B 

SL0PR3 3 
DC 
DC 
DC 

«vc 



S T "MLT 



B 
DC 



COflPLO 

PRINT 

XL1 'C1' 

ILI'50' 

AL2 (EFST01) 

XL2'A096« 

PRINT 

XLV81' 

ILT50" 

AL2 (EFST02) 

FSTP3T(2) ,AEFST5 

FSTPR3 

FSTPRT(2) ,X0032 

FSTPR2 

PRINT 

XL1'86' 

ILT50' 

AL2 (EFST06) 

FSTPRT,AEFST2 (2) 

HALT 
XL2'A096' 

MAXnS"" (7) .KAXKSK- 

LINK 

PRINT 

XLTCV 

ILT50' 

AL2 (ESLO01) 

XL2'A095' 

PRINT 

XLI'81' 

ILI'50' 

AL2(ESLO02) 

SL0PHT(2) , AESL12 

SLCPR3 

SL0PRT(2) ,X0032 

SL0PR2 

PRINT 

XLV86' 

ILV50' 

AL2 (ESL0 13) 

SL0FRT,AESL02 (2) 

HALT 
XL2' A095' 

LINK 



10 



THAN I1IN TOLERANCE, THE 
DISK IS SPINNING TO 
FAST. PRINT OUT ERROR 
MESSAGES TELLING OF 
POSSIBLE DISK PROBLEMS. 



.ERROR HALT -A096- DISK 
SPEED GRTR THAN 1530 RPH 

.IF MAX REV TIME GREATER 
THAN RAX TOLERANCE, THE 
DISK IS SPINNING TO 
SLOW. PRINT OUT ERROR 
MESSAGES TELLING 0" 
POSSIBLE DISK PROBLEMS. 



. ER'iOR HALT -A095- DISK 
SPEED LESS THAN 1470 RPH 

.LINK TC NEXT ROUT OR SECT 



******************* 

v ROUTINE PREFACE I*****************************-********************** 

******************* 



RTN02 



DC 
DC 

DC 



XLV02' 
XLVOO' 
XL2'FFFF' 



ROUTINE I 



************* 

* POUTINE 2 *********************************************************** 

************* 



TESTA2 TEN SBKTE3,X'01' 

.IT * ♦ 1 

TEN DISK2-1, X'20' 

JT rEIRY2 

H LOAD 



IS SSH 1F ON? 
IF YiTS, JUMP TO LOAD. 
TEST IF SECONDARY DISK 
ATTACHED. IF NOT, LOAD 
NEXT DCP SECTION. 



IS 



DATE 1JHAR7C 06APR70 23APH71 

EC NO. 571S!2 571516 571565 



PROG ID 
PAGE 



OAOD-1 
3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



A0D1 



DISK REVOLUTION TEST 



PART 
PAGE 



NO. 



5129644 
3A 



ERR LOC OBJECT CODE 

0D72 00 

0D73 CO 87 021A 

0D77 01 

0D78 OC 

0D79 0DE4 

0D7B 3C 00 12EF 

0D7F 3C 87 OA90 

0DB3 CI BO 0A6C 

0D87 31 B4 12E3 

0D8B 31 B6 12E5 

0D8F F3 BO 00 

0D92 C1 B2 CD92 

0D96 30 B2 CAC2 

0D9A 33 10 0AC2 

0D9E CO 10 0D96 

0DA2 38 40 0A f ;2 

0DA6 CO 90 0A7F 

ODAA 31 36 12E7 

ODAE F3 B1 00 

0DB1 CI E2 0DB1 

0DB5 C1 EO 0A6C 



0DB9 C2 03 0A97 

ODBD 3C B3 OAAF 

0DC1 3C B3 0EA4 

0DC5 CO 87 0AA3 



ADDR STMT SOURCE STATEMENT 



0D72 


331 






DC 


XLVOO' 




332 


EETRY2 


E 


PRINT 


0D77 


333 






DC 


XL1 «01« 


0D78 


334 






DC 


IL1' 12' 


0D7A 


335 






DC 


AL2 (DISKB) 




336 


TESTB2 


MVI 


RDITO.X'OO" 




337 






MVI 


RETBR+1 ,X'87> 




338 


» 










339 






TIO 


NTPDY1 ,X' 30» 




340 






LIO 


DAR, X' B4' 




341 






LIC 


RECL.X' B6« 




342 






SIO 


X'OO' ,X' 90' 




343 


SBUSY2 


TIO 


3BUSY2,X , 32' 




344 


SE 


EKD2 


SNS 


BITCHK,X' 32« 




345 






TEN 


BITCHK,X» 10' 




346 






ET 


3EEKD2 




347 






TEN 


BITCHKjX^O 1 




348 






BF 


RECAL1 




349 






LIC 


5D,X' B6' 




350 






SIO 


X'OO' .X'tM • 




351 


HB 


USY2 


TIC 


RBUSY2,).' b?.' 




352 






TIO 


NTRDY1 ,X' 30' 




3 5i 










0A97 


354 






USING 


START 1.XR1 


0A97 


355 
356 
357 






USING 


START1.XR2 




356 


ST 


ART 2 


LA 


STARTI.X'O 3' 




359 






MVI 


CKDISK+1 ,X' B3' 




360 






MVI 


SWDISK+1 ,X' B3' 




361 






g 


RETRY 




362 












363 












364 











. 3EISIT TO X'OO' TO READ 
.SET UP TO RETURN TO TESTE2 
AFTER MTRDY OR RECAL KSG. 



.SEEK TPK D 

■ LOOP TILL SEEK B'JSK DROPS 



READ SECT3R 



DATE 1JMAR7C 
EC NO. 571512 



06APR7G 
57 1516 



2 H APR 7 1 
571565 



PROG 
PAGE 



ID 



0A0D- 1 
3\ 



IBB MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



512964U 
4 



AOD1 



DISK REVOLUTION TEST 



ERR LOC OBJECT CCDE 



ADCR STMT SOURCE STATEMENT 



0DC9 0A97 ODCA 

ODCB 0DE9 ODCC 

ODCD C4C9E2D240C4D9C9 0DD8 
0DD5 E5C540F1 

0DD9 C4C9E2E240C4D9C9 0DE4 
0DE1 E5C540F2 

0DE5 2020204B202020 ODEB 



ODEC OOOOOOCOCCO00OO0 

0DF4 0035 

0DF6 D4C9D540E9C5E540 

ODFE E3C9D4C57E40 

0E04 0O00C00O0OO00O 

OEOB 40E4C9D3D3C9E2C5 

0E13 C3404DD4C9D540E3 

0E1B D6E3C5E9C1D5C3C5 

0E23 7E40FOF3F94BFOF4 

0E2B F040E4C9E3D3C9E2 

0E33 C5C35D 

0E36 C1E5C540D9C5E540 

0E3E E3C9B4C57E40 

0E44 00O00OCOOOO00O 

0E43 40E4C9D3E3C9E2C5 

0E53 C3404DD5E6D9D4C1 

0E5B C340E2D7C5C5C440 

0E63 7E40FOF4F04BFOFO 

0E6B F040D4C9D3D3C9E2 

0E73 C5C35D 

0E76 D4C1E740B9C5E540 

0E7S E3C9D4C57E40 

0E84 0OO0CC00COO0OO 

0E8B 40E4C9D3D3C9E2C5 

0E93 C3404DD4C1E740E3 

0E9B D6D3C5:9C1D5C3C5 

0EA3 7E40FOF4F04BF9F6 

0F.AB F040D4C9D3D3C9E2 

0EB3 C5C35D 

0E36 D5E4D4C2C5D940E6 

OEBE C640D9C5E5D6D3EU 

0EC6 E3C9D6D5E240E3C9 

OECE D4I35C47E40 

OED3 40404040 

0ED7 E2C5D3C5C3E340E3 

OEDF C8C540E5E4D4C2C5 

0EE7 D940D6C64CE9C5E5 

OEEF D6L3E4E3C9BbD5£2 

0EF7 40E3D64CC2C540E3 

OEFF C9D4C5C4 

0F03 A090 

0F05 00C8 

0F07 F0F1F0F0 

'FOB 5C5C5C5C5C40D4C1 

0*1.3 E74CE9C5E540E 3C9 

Oi 1I> D~C540C1C2D6E5C5 

0F'3 40L4C1E740E3D6D3 

OFzS C5E9C1D5C3C540C3 

0F3' C1E4E.JC5C440C2E8 

0F3B 7A40 

0F3D 5C5C5C5C5C404040 

0F45 F15D40E2E3C9O7P7 

0F4E C D5C740C2C5^2i3 

0F55 40(0404040404040 

0F5D 4J404040404Q4040 

0F65 4.J4L4C4C40404040 

0F6D 4 '.'4 



0DF3 
0DF5 
0E03 

OEOA 

0E35 



0E43 

0E4A 
0E75 



0583 

0E8A 
0EB5 



CED2 



0ED6 
0FO2 



0F04 
OF06 
OFOA 
0F3C 



0F6E 



366 

367 

368 

368 

369 

369 

370 

371 

372 

373 

374 

375 

376 

376 

377 

378 

378 

378 

378 

378 

378 

379 

379 

380 

381 

381 

381 

381 

381 

381 

382 

382 

383 

384 

384 

384 

384 

384 

384 

385 

385 

3 85 

385 

386 

387 

3 87 

387 

387 

387 

3 87 

388 

3 89 

390 

391 

3 91 

391 

391 

3 91 

391 

391 

392 

3 92 

392 

392 

3 92 

3 92 

392 



ASTRT1 
ASTRT2 
DISKA 



DC 
DC 
DC 



DISKB DC 



e<;:ask 

*b;1ASK 

WORK 

X0035 

MINMS1 

KINMS2 
MINMSK 



DC 
DC 

DC 
DC 
DC 

DC 
DC 



MEDMS1 DC 



MEDMS2 
MSDMSK 



MAXMS2 

MAXMSK 



TOTREV 
TEST01 



DC 
DC 



MAXMS1 DC 



XA090 
SHSET1 
D0100 
SSLC01 



DC 
DC 



70TSE1 DC 



DC 
DC 



DC 
DC 
DC 

DC 



ESL002 DC 



AL2(STAET1) 
AL2 (START2) 
CL12'DISK DRIVE 1' 

CL12'DISK DRIVE 2' 



XL7«2020204B202020' 
XL7'FOFOF04BFO"OFO' 

XL8*0" 

XL2*003S' 

CL14'MIN REV T.;ME- 



.NEH EDIT INSTRUCTION MASK 
.OLD EDIT INSTRUCTION MASK 



XL7'00' -ENTER EDIT MASK HERE 

CL43' MILLISEC (MIN TOLERANCE= 039.040 MILLISEC)' 



CL14'AVE REV T1ME = 



XL7'0T 

CL43' MILLISEC 



NORMAL SPEED 



.ENTER EDIT MASK HERE 
040.000 MILLISEC) • 



CL14'MAX REV TIME; • 

XL7'00' .ENTER EDIT MASK HERE 

CL43' XTLLISEC (MA) TOLERANCE^ 040.960 MILLISEC)' 



CL29' NUMBER OF REVOLU'IONS TIME! 



XL4'40404040* 

CL44'SELECT THE NUMBER C? REVOLUTIONS TO 3E TIMED' 



XL2' A090' 
IL2'0200' 
DL4'0100' 
CL50'***** MAX REV TIME ABOVE MAX TOLERANCE CAUSED BY 



CL50' ***** 



D 



SLIPPING BELT 



OFh? 5l.5C5O5C5C404O40 OFAO 39 3 ESLO03 DC 



CI.50' ***** 



2) WORK BEARING 



DATE 
EC NO. 



1 JMAR70 
571512 



06AFR70 
571516 



28APR71 
571565 



PROG Ii> 
PAGF 



OAOD-1 
4 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 



A0D1 



DISK REVOLUTION TEST 



PART NO, 
PAGE 



512961a 
4A 



ERR LOC OBJECT ;ODE 



ADDR STMT SOURCE STATEMENT 



DATE 
EC 



0F77 


F25D4CE6D6D9D540 




393 




0F7F 


C2C5C1 E9C9E5C7E2 




393 




0F87 


4040404040404040 




393 




0F3F 


4040404040404040 




393 




CF97 


4040404040404040 




393 




0F9F 


4040 




393 




0FA1 


5C5C5C5C5C404040 


OFD2 


3 94 ESLO04 DC 


CL50« ***** 


0FA9 


404040F24BF15D40 




394 




0FB1 


D4D6E3D6D9404040 




394 




0FB9 


4040404040404040 




394 




0FC1 


4040404040404040 




394 




0FC9 


4G40404040404040 




394 




0FD1 


404C 




3 94 




0FD3 


5C5C5C5C5C404040 


1004 


395 ESLO05 DC 


CL50* ***** 


OFDB 


404O4OF24BF25D40 




395 




0FE3 


C9C';D3C5D940D7E4 




395 




OFEB 


D3C3C5EE4C404040 




395 




0FF3 


4040404040404040 




395 




OFFB 


li :;04C40404040 




395 




1003 


4040 




395 




1005 


5C5C5C5C5C404040 


1036 


396 ESLO06 DC 


CL50" ***** 


100D 


404040F24BF35D40 




396 




1015 


D3C1E8E2C8C1C6E3 




396 




101D 


40D7E4C3D3C5E84C 




396 




1025 


40404C4C40404040 




396 




102D 


40404C4040404040 




396 




1035 


4040 




3 96 




1037 


5C5C5C5C5r404040 


1068 


397 SSLO07 DC 


C L 5 • ***** 


10 3F 


40404CF24BF45D40 




397 




1047 


E2C7C9E5C4D3C540 




397 




104F 


D7E4D3D3C5E8404C 




397 




1057 


4040404040404040 




397 




105F 


404040404 0404040 




3 97 




1067 


4040 




397 




1069 


5C5C5C5C5C404040 


109A 


398 ESLOO^ DC 


C 1 5 ' ***** 


1071 


F35D4CC4C5C6C5C3 




393 




1079 


E3C9E5C540D4D6E3 




398 




1081 


06D9404040404040 




393 




1089 


4040404040404040 




3 98 




1091 


4040404040404040 




398 




1099 


4040 




399 




109B 


5C5C5C5C5C404040 


10CC 


399 ESI.O09 DC 


CLSQ' ***** 


10A3 


F45D4CE6D9D6D5C7 




399 




10A3 


40D7E4D3C3c5E8;iB 




399 




10B3 


40F6F0C8E940D7E4 




'99 




10BB 


D3C3C5E84CD6D540 




199 




10C3 


F5FCC8E940D4D6E3 




3 99 




10CB 


D6D9 




■19 9 




10CD 


5C5C5C5C5C404040 


10F2 


4 00 ESL'MO DC 


CL53 ' ***** 


10D5 


404040F44BF15D40 




400 




10DD 


F5FCC8E940D7E4D3 




400 




10E5 


E1C5E84C7E40F14B 




4C0 




10ED 


F5F1F7 4 04E604 4B 




4 00 




10F r > 


F0F0F240C9D5C iC8 




400 




10FD 


4040 




4 00 




1 F F 


5c5C r >C5C r C404 40 


11 30 


401 ESL'-. 11 DC 


CIS., ■ * ■■ ** 


1107 


40U04CF44!'r ,'5D40 




401 




110F 


F6FCC8E940C7E4C 1 




401 




11 17 


C3C5E84C7E40F1 4B 




4C1 




11 IF 


F2F6F0404E60404B 




4 0'! 




1127 


F0F0F240C9D5C3C8 




401 




112F 


4040 




401 




1131 


5C5C5C5C5C404040 


1162 


4 02 F.SLM2 DC 


CL50' ***** 


1139 


F55D4CE6E9D6D5C7 




402 




1 141 


40C4n6E3D6H94060 




402 




1 149 


40F6FCC8E940D4D6 




402 




1151 


EiDbL940r.6t)540F5 




402 




1 1 59 


FCCHE94CE7D6E6C5 




402 




'E 


1JMAR7C 06APR70 


1'6 APR 71 




NO. 


57 1512 57 1516 


i 


57 156 5 





2.1) ROTOR 



1.2) IDI 



PULLEY 



.AY3HAFT F'JLI 



2.4) SPIN! 



.?. PULLEY 



1) 



IV?. 



J 3 C N : 



'iiLL" 



::n 5 oh; 



4.1) 



pjl: 



1 7 



.002 



(ILI.-Y 



'3) 



iHCNc; MOTOR 



OH 



•"iOHZ POWKl- 



i AGE 



ID 



A 1) - 1 
4A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



51296U4 
5 



AOD1 



DISK REVOLUTION TEST 



ERR LOC OBJECT CODE 



ADDR STHT SOURCE STATEMENT 



1161 


D940 




402 












1163 


5C5C5C5C5C404040 


1194 


403 


ESL013 


DC 


CL50'***** 6) 


INDEXING PULSE BELOW SPEC OR MISSING • 




116B 


F65D40C9D5C«JC>i:7 




403 












1173 


C9D5C740C7E4D3E2 




403 












1TB 


C540C2C5D3D6E64C 




403 












1183 


E2E7C5C340D6D940 




403 












119B 


D4C9E2E2C9D5C740 




403 












1193 


4040 




403 

404 












1195 


5C5C5C5C5C4 0D4C9 


1 1C6 


405 


EFST01 


DC- 


CL50'***** .IIS 


REV TIME 3ELOH «'N TOLERANCE CAUSED BY: ' 




119D 


D540rSC5E54CE3C9 




405 












11A5 


D4C540C2C5D3D6E6 




405 












11AD 


40D4C9D540E3D6D3 




405 












11 E5 


C5D9C1E5C3C540C3 




4 05 












11ED 


C1E4E2C5C440C2E8 




405 












11C5 


7A40 




405 












11.7 


5C5C5C5C5C404040 


11F3 


4 06 


EPS TO 2 


DC 


CL50'***** 1) 


WRONG PULLEY. 50HZ PULLEY ON 60HZ KOTOP' 




11CF 


F15E4CE6D9D6D5C7 




4 06 












11D7 


40D7E4D3E3C5E34B 




406 












11DF 


40F5FCC8E940D7E4 




406 












11E7 


D3E3C5E840D6D540 




406 












11EF 


F6FCC8E940D4D6E3 




406 












11F7 


D6D9 




406 












11F9 


5C5C5C5C5C404040 


122A 


407 


EFST0 3 


U V. 


CL50'***** 


1.1) 50HZ PULLEY = 1.517 +- .002 INCH ' 




1201 


404040F14EF15D40 




407 












1209 


F5FCC9E940D7E4D3 




4 07 












1211 


E3C5EE4C7E40F14E 




407 












1219 


F5F1F7404E60404B 




407 












1221 


F0F0F240C9D5C3C8 




4 07 












1229 


4040 




407 












1223 


5C5C5C5C5C404040 


12 5C 


408 


EFST04 


DC 


CL50' ***** 


1.2) hOHZ PULLEY = 1.260 +- .002 INCH • 




1233 


40404CF14BF25D40 




408 












1233 


F6FCC8E940D7E4D3 




408 












1243 


C1C5E84C7E40F14B 




408 












1243 


F2F6FC404E60404B 




H Q U 












1253 


FOFOF240C9D5C3C8 




4ce 












125B 


4040 




408 












125D 


5C5C5C5C5C404040 


128E 


409 


EF 37 U : . 


DC 


CL50'«**** 2) 


WKCNG MOTOR - 50HZ MOTOR ON 60HZ POKER • 




1265 


F25B40E6E9D6D5C7 




4 '3 












126D 


40D4D6E3D6D94060 




409 












1275 


40F5FOC6E940D4D6 




409 












127D 


E3E6D940D6D540F6 




409 












1285 


FCC8E94CE7D6E6C5 




4 09 












128D 


D94 




409 












123F 


5C5C5C5C5C404040 


12 CO 


4 10 


SFST06 


DC 


CL50'***** 1) 


INDEXING PULSE TOO LONG 03 STUCK ON ' 




12 97 


F35D40C9E5C4C5F7 




4 10 












129F 


C9C5C740E7E4DJE2 




♦ i <j 












12A7 


C540E3D6I640D3E6 




41 : 












12A? 


£5' 74CC6L940E2E3 




410 












1237 


E4C3L'240D63 r :4?4C 




4 10 












123F 


404G 




4 1 

4 1 1 












12C1 


12 


12C2 


412 


X C 3 2 


DC 


XL2'0O32' 






12CJ 


1z:H 


12C4 


413 


A E F 3 T v. 


DC- 


AL2 (EF3T-J5) 






12C5 


1 1F« 


12C6 


414 


AEFST2 


DC 


AL2 (EFST02) 






12C7 


1162 


12C8 


415 


AFSL12 


DC- 


A 1.2 (ESI.01 2) 






12C9 


0F6E 


12CA 


416 


AESL02 


DC 


A I 2 ( E S 1. ^\)2) 






1 2 c: a 


C4C9E2D,.'40D r jD6E1 


1 2 E 1 


417 


PNTPDY 


DC 


CL2 1'DI::K NOT r 


EADV :.n ERROR' 




1 2D J 


4CD9C5C1C4E840D6 




417 












12DB 


D94CC5C >f;9Df,D9 




417 












12E2 


1316 


12E3 


41? 


DAR 


DC- 


AL2 (REJDIN) 






12S4 


1 2 e e 


12E5 


419 


PECL 


DC 


AL2 (SEEKO) 






12E6 


12EC 


12E7 


420 


?D 


DC 


AL2 (HOTT) 










12Lrt 


421 


SEEKO 


Ei,!l 


* 






12 EH 


Ci. JO GUFF 


12E3 


4 22 




DC 


X L 4 ' J J J OFF' 










12FC 


421 


REIT 


ECU 


* 






1<cEC 


CCGCCGGO 


12EF 


424 




DC- 


XL4«0 JOOOOOO' 






12.-0 


C4C9r2C240D5j',E i 


1115 


425 


cki'jur. 


DC 


cl 3" v. : ;k not c 
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0001 
0002 

00C8 
00 10 
0004 
0020 
00 40 
0080 
0081 
0032 
008U 
0089 
0200 
0202 
0203 
204 
C208 
02 09 
020A 
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020D 
02 12 
2 16 

021E 
0222 
2 26 
022A 
2 12 
3800 
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GAOO 
OA01 
OA02 
OA03 
UA07 
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440 
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470 

471 

472 
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ii 7 7 
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XR2 

ARR 
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IAR0 

I API 

IAR2 

IAR3 
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E C U 
ECU 
ECU 
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rs 
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SYMBOL 


T 


LEN 


VALUE 


DEFN 


REFERENCES 


AEFST2 


A 


002 


12C6 


0414 


0283 




AEFST5 


A 


002 


12C4 


0413 


0275 




AESL02 


A 


0C2 


12CA 


0416 


0307 




AESL12 


A 


002 


12C8 


0415 


0299 




AHAXPR 


A 


002 


0CD2 


02*1 






AHEDPR 


A 


002 


0LCA 


02 57 






AHINPB 


A 


0C2 


0CC2 


0253 






ASR 


C 


001 


C008 


0429 






ASTBT1 


A 


002 


0DCA 


0366 






ASTRT2 


A 


002 


ODCC 


0367 






ATAEL1 


A 


002 


0BF7 


0181 


0115 




A0D1 


A 


001 


OAOO 


0003 






BADBIT 


A 


004 


OAEF 


0C89 


0078 




BITCHK 


A 


002 


OAC2 


0086 


0039* 


0040 


BITCK 


A 


0C4 


0EC3 


0099 


0082 




BUBP1 


A 


004 


0589 


0146 


143 


0144 


CALDSK 


A 


038 


1315 


0425 


06 3 




CHKEIT 


A 


002 


0BC4 


0167 


0152* 


015 3 


CKDISK 


A 


QC3 


CAAE 


0079 


073* 


0359* 


COBPHI 


A 


006 


0CE3 


0264 






COMPLO 


A 


0C6 


0D15 


2 r. S 


0265 




COUNT 


A 


0C2 


0BF5 


0180 






CPU 


C 


0C1 


C204 


0442 






DAR 


A 


002 


1213 


""4 18 


0035 


0340 


DECFIL 


A 


CCS 


DEED 


01 64 


01 16 


C 117 


DEC01 


A 


0C1 


0C8E 


0233 


0225 


0236 


DISKA 


A 


012 


0DD8 


3368 


0030 




DISKB 


A 


012 


0DE4 


0369 


0335 




DISK1 


A 


0C3 


CACC 


0014 


0025 




DISK2 


A 


OCi 


OAOF 


0015 


32 8 




DIV 


A 


0C6 


CC7B 


0234 


0237 




DIVIDE 


A 


0C6 


JC72 


0232 






DIVISR 


ft 


0C2 


CC90 


02 39 


0117* 


012 i* 


DRESET 


A 


001 


OBED 


0176 


189 


1 89* 


DU.1BY 


A 


0C3 


OEAF 


0156 


155 




D0100 


A 


0C4 


CFCA 


3 90 


122 


12 3 


D3040 


A 


3C4 


CBC1 


0165 


0208 




EDIV 


k 


006 


0C97 


0241 


02 35 




EDIV1 


A 


0C6 


CC91 


0240 


0233 




EDBASK 


A 


007 


OCEE 


0371 


024 1 


024. 


EFSI01 


A 


050 


11C6 


04 05 


0269 




EPST02 


A 


050 


11F8 


0406 


0274 


0414 


EFST03 


A 


05C 


122A 


04C7 






EF5T04 


A 


050 


125C 


04C8 






EFST05 


A 


050 


128E 


0409 


0413 




EFST06 


A 


050 


12C0 


0410 


0282 




EIGHT 


A 


0C2 


CBF3 


0179 






ESLC01 


A 


050 


0F3C 


0391 


0293 




ESLC02 


A 


050 


CF6E 


3 92 


0^98 


0416 


ESLC03 


A 


050 


OFAO 


0393 






ESLOC4 


A 


050 


CFL2 


0394 






ESLC05 


A 


050 


1004 


0395 






ESL006 


A 


050 


1036 


3 96 






ESI.C07 


A 


050 


10b8 


3 c .7 






ESLCC8 


A 


C 


10 9A 


)98 






ESLC09 


A 


050 


10CC 


399 






ESLC10 


A 


050 


10FE 


0400 






ESL011 


A 


050 


1130 


0401 






ESLC12 


A 


050 


1 162 


0402 


415 




ESLC1 3 


A 


050 


1 194 


0403 


)06 




ETABL1 


A 


002 


CBF9 


0182 


115* 


0121* 


FRTN 


C 


001 


OA07 


4 6 1 






FSTHLT 


A 


0C4 


CDOF 


0285 






FSTFRT 


A 
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0274 
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FSTFR3 


A 


004 


0D01 


0279 
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GOCALC 


A 


0C4 


OEFA 


0188 


0149 








GOON 


A 


ooa 


0E11 


0105 


0100 








GOON2 


A 


OOu 


0B79 


0137 


0130 








GOON 3 


A 


ocu 


0B81 


0144 


0136 








HALT 


C 


001 


0222 


0453 


0056 


0065 


0094 0111 


0285 


IAB 


C 


0C1 


0010 


0430 










IARO 


c 


0C1 


0080 


0434 










IAR1 


c 


0C1 


C081 


0435 










IAR2 


c 


001 


0082 


0436 










IAR3 


c 


CC1 


CC84 


0437 










IAR4 


c 


CC1 


0088 


0438 










KONT2 


A 


006 


0C37 


0217 


0212 








KONT3 


A 


006 


OC4F 


0222 


0219 








KONT4 


A 


0C6 


0C5E 


0225 


0221 


0223 






KOONT 


A 


002 


OACO 


0085 


0076* 


0077* 






LINK 


C 


001 


0216 


0450 


0024 


0026 


0289 0312 




LOAD 


c 


00 1 


022A 


0455 


0330 








LOOP 1 


A 


0C4 


0AA7 


0077 


0081 








LOOF2 


A 


006 


CC08 


0204 


0226 








LOOP3 


A 


0C5 


CC11 


0206 


0209 








LPDATA 


C 


001 


037C 


0456 










LPIRAG 


c 


001 


0800 


0457 










BAXBSK 


A 


043 


0EE5 


0384 


0261 


0288 






BAXBS1 


A 


014 


0E83 


0382 










BAXBS2 


A 


007 


0E8A 


0383 


0243* 


0246* 


0288 




HAXVAL 


A 


CC8 


03CD 


0169 


0214* 


0222 


0224* 0246 




HEDHSK 


A 


043 


0E7S 


0381 


0257 








BEDBS1 


A 


014 


0E43 


0379 










BEDHS2 


A 


007 


0F4A 


0380 


0242* 


0245* 






HEDVAL 


A 


0C8 


CBEC 


0175 


0230* 


0231 


0231* 0236* 


0240 


HINBSK 


A 


043 


0E35 


0378 


0253 


0264 






BINBS1 


A 


014 


0EC3 


0376 










HINBS2 


A 


CC7 


0E0A 


0377 


0241* 


0244* 


0264 




HINVAL 


A 


0C8 


0BD6 


0171 


0213* 


0218 


0220* 0244 




HTBEY1 


A 


0C4 


CA6C 


0051 


0034 


C04 7 


0339 0352 




NUHREV 


A 


004 


0B65 


0129 


0125 








ONCE 


A 


0C3 


0C24 


0212 


0198* 


0207 


0215* 




ONE 


A 


0C2 


OBE3 


0162 


012* 


0151 


02C6 
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C 
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PNTRDY 


A 
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c 
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c 


0C1 


0020 
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c 
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0433 










RHUSY1 


A 
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0046 
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RBUSY2 


A 


0C4 


CEE1 


0351 
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RD 


t, 


002 


12E7 


0420 


0044 


0349 






EDIT 


A 


001 


12EC 


0423 
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0336* 


0420 




READIN 


A 


001 


1316 


0468 


0418 








RECAL1 


A 


0C4 


CA7F 


0060 


0043 


0348 
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A 
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0419 


36 


0341 






HETER 


A 
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0A8F 


0067 


0032* 


005 8 


0337* 




RETRY 


A 
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0076 
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BETRY2 


A 


004 
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0332 


0329 








BNUB 


C 


C01 


CaC3 


0462 










RTN01 
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0019 


0012 
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CD5C 
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0021 
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SBYTE3 
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SEEKD1 
SEEKD2 
SEEKO 
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SLOPRT 
SLOPB1 
SLOEB2 
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SHOE 
SPFLGS 
SPT 
SPUDT 
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TABLE1 
TEST 
TESTA1 
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WORK 



001 
001 
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0209 
020A 
020B 
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020D 
0A47 
CD96 
12E8 
0B42 
0203 
0D52 
OD30 
CD1F 
0D29 
CD44 
0202 
0A02 
0A00 
OAOA 
0200 
0A97 
CCE9 
0BA3 
0F06 
CB25 
0AC9 
1416 
0212 
CA14 
CD60 
CA2C 
0D7B 
0F02 
0FD6 
0ED2 
0BE3 
0B9F 
0EB5 
021E 
0232 
0DF3 

OF04 
OABC 
0001 
C002 



X00O1 A 0C2 CABE 
X0032 A 002 12C2 
X0035 A 002 ODF5 



0444 
0445 
0446 
0447 
0448 
0039 
0344 
0421 
0121 
0441 
0309 
0298 
0290 
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03C3 
0440 
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0459 
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0072 
0358 
0152 
0389 
,1 15 
0464 
047C 
0449 
0023 
0326 
0031 
0336 
0387 
0386 
0385 
0173 
0151 
0163 
0452 
0456 
0374 

0388 
08 3 
0427 

0428 

0084 
0412 
0375 



0023 0326 



0041 
0346 
0419 
0119 0127 



0299 0301* 0307* 

0302 
0300 



0048 0070 0071 0072 0354 0355 0358 0366 

0367 

0074* 0360* 

0121 

0102 

0145 0181 0190 

O063 
0067 



0108 

0116* 0122* 0134 0140 0225* 

0217* 0234* 0240 

0154 

146 0150 



0101* 0114* 0118 0120* 0124 0126* 02O4* 0208* 0213 0214 02 17 021-3 
0220 0222 0224 



0076 
0070 
0071 
0153 
0077 
0277 



0145* 0146* 0147 

0076 0076 0077 

0154 0156 0355 

0301 



0150 
0077 



0151 
0079 



0190* 020 5 
0080 0143 



0205* 0206 0354 
144* 0150 U 1 S 1 



J 152 



TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 



DATE 
EC NO. 



13HA870 
57 1512 



06AIP7 
571516 
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571565 
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OBJECT CABC LISTING 



THE CHARACTER INDICATES A BLANK COLUHN AND THE CHARACTERS D E H INDICATE NUHERIC SHIFT. 

CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 

T+-Y:¥(D 6 B/C "•': . 6 D CNO 8 -H.OA BET — B-? U HOOH*BF-D<C) - 3 A. ? | H HU<F-BW0 1ZAH -.2*A0D100O1 

T+-Z583FHD>P3Y C A Y-ZC<HHH0T-SBX. D ZG+D H0?HSILF WD>--3 YGCAY-Z/OE H$|HGH«BG /,FE1- /Y|8 ■"°3A0D10002 

T+-D00H*BHDC=dY* S0H*BFSQWD1O- A*B G SH-A*B COC /OY H0-<H V32TBDaaY0> U, DZIE8 AHK-.2YDF 0Y2X 6YYAOD10003 

T+-.,> -DOI HZ"H GK(L" D 2) P D1;) 0*XT&<TA8UC N5>{ 0)-.P1*GR1*J 2) N 4aGS84C46+. EO'Q 2.<A0D100O4 

T«~%W5*LS0H*BF%Q *B>:-S*BG SH-S*B GBD<8 BHH3Z G| (3"HGE<BG /ZG. a BY|X /OHSYJUO 7 3C D 3Q A0D100O5 



T+-_/B"U. '00CC_Q .>S0ACI .>L4|C->| 2A S3 73C-D.=SS FA-<+ 5-<iH A-D<U 3 H|6 (3"HAB-a C-.< . %di 76DAOD10006 
T+->* 6_B» DBB|H 6C*3G /ZFH6#OY|X 2/OT /0HEASD+5«H 338X3 J6K (-D._L& AB = S( 6??3"X -6? :$ D 4:%AOD10007 



T*-?P K1> 6DDXK< *> -:8I C3Y* 8H* D ?C0S|C3S|L 0a"C43 C03|C 03 | COS | C03 | COS | C 03| LZXA0D100O8 



T*-OKd|C0i |C0a|C 03| COS | C02| COS | C 03 



B EAQ C2 C3K<I0?%B=7 B JSKC *(a0>«4-D BLOD 4BQAOD10009 



T + -1( 6>30HH<I E CC-<.0*EGCAG2-A <A0?OC-<<A0? (C-< 3/00VAU*. 8073CS* (aO?Oa-HIC *.5-7 33Y* #:*AOD10010 

T«-2HC04GC-><.3->H DA- 0GBa4 (SO *0C_3 <T% AC -98 ?SC Q . : 0?XCSD<U 3H3YD O A6D-702Sa-SLAX -# 0/aA0D10011 

T*-3CT%BGCG?ia| D < A0?*8" a< A-8HC ; * <A-9HC ; S< A- : HC ; X HA-8HB «&HA-9HB=0 HA-:HBS? /OHE H ♦ (* ♦I4A0D10012 

T+-3=/0HE .1 +)*B G /YFS :5C5C + B-3 , S-H90 H*3FXD2D*E -VSBG /CA</G8C6D < *J. D3YDHC-D<# J. BOH* :YQA0D1OO13 

T*-49C+$ /OHE/TH KO 0AO4K1SBG SH - V-4FCY Y+D3 D /$ /OHEOLH I | HBNOH* BFYD2C68 ( 640DXT 2-&Y E-YA0D10O14 

T + -54C- D(<A.BCK* (H*EG /DF</Ff1C D (< A. H0H*BHDBN0H* BE-H ""48 &H.3/ G+B HC?HSA*BG SY OH* 3T<A0D10015 

T*-6? /YAC 7U| K*32GS2CA% ZX<$C K83F6D>P3X CAX-6 K<.HHOT-6Bf. D 6 O+D H0XS&BXal_/- Xd#D -RQA0D1OO16 



T + -7I: <^^C$r,^% z *0-<HV323BDaa«0> UOH*HY0DPC$XD2 ;. KS<LH2;PE6| GD2; . KS<LR2;PE&| H-HEA . HB OIDA0D10017 



T+-8V; 



CPK2) N 6*PV&+| I5<N=& 



A 5<XL4aXS1*{ L) L I 5SCT5_ | E6*GN0aN =£| «T4AOD10018 



T*-9-<*" V.D| LOR (L I4» | I8«PCP*GV1HC B1;N 83XB1P9 



DCM2)|L2;. E04 A (5) 3R5<GL&*. P1*H JIXA0D10019 



T + - :$ 13A-i| C*tV? Otf|A 5<XL4iXS1*( ) 5 <GXS (XE9HCT2) L E-U 



6{L 14' | I8XPC5D7H0;) 8'Q QLUAOD10020 



T*-iC»aVBO) I(_1i r i i\ LGK"X63DCK2) | L2; .E057N9 (LB1) V 5XR 6*FV5_|U83X 05;I 8aX(11*J = 6DA &D PSXA0D10021 
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EC NO. 571512 571516 
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571565 
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OBJECT CARD LISTING 

CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 

T+-aJ8JPL1*|T6+l H1MCN9(LB1)V 5SB 6 *P"5_ | U83X05 ; I 3>R 0%N 8SXB1*K -U CH3 | G03E1 *PE1 *6 (6 N2-A0D10022 

• • - • • • • 

T«-'<0;) 6*PV6+| I5<N 0*.O9*N 5<G XS + | 042FR0) PCI MC C0;LS1*J 0>/:6E1 *PE1*SDA 3N5 8_ | 15'* MJ4A0D10023 

T*-=G2) PGS<. E4= ( 6DA 5DA 6DA SDA SDA 6CA SDA SDA SE1*PE1*SDA 3V5 9_$R5MC3 1*GR 2) P G8U N/HA0D10024 

T*-"ESDA SDA 6DA SDA SDA 6DA SDA SDA £E1*PE1*SDA SDA SU^I PMCS5> | 06MA SDA SDA 'DA SD -.#UA0D10025 

T*-"»6DA SEA SEA SDA &DA &E1*PE1 *&CA SDA aU?2FHC 1 1 ( | E6MCP9 ( | L1 ;/ SDA SDA SDA SDA SD =RYAOD10026 

TV 86DA SCA SE1 *PE1*6DA SDA dU? 3PKCL0 ; TS2<GF84C P9(|L1;/ SDA SDA SDA SDA SDA SCA ?E0 -.RSA0C10027 

Tt/A3PE1*SEA SCA SU ?4PHCS5aXN 1 (I E& (-.U4 • | E: DA SDA SDA SJA SDA SDA SDA PE1*?S, SDC 3P3 0- A0D10028 

T+/E>KPF1*|T2;P E?(L03*$RSDA SDA SEA SCA SDA SDA SDA SDA FE1*PE1 SDC4P."^CW6 ) $N 1 4C P9(< 0.SA0D10029 

T*/CZ4SPYK4C6<?<T ZS {--U4 ' | E: DC05HC 5<*<TZ6 (LC8 ■ $RPE 1 *PE1 SDA SDC4K"E )S;P02+V 5 = LL4a)P *SG8 Q84A0D10030 

T*/EUSJ E. '-G7SD9 -&D?0ai|I 2)PC2CA PE1*PE1 SDA SDC 4K"IjS|$02 + V 5=L L43PYSG9 fiK?2'?A LH QOKAOD10031 

IVE-"M?0«| I 2) P C2DA PE1*PE1 SDC 5FSCH6) $N1 4CK5> | 06HA-S|J02+V 5($ T5_V 5_N ■ -.CH- 3C P5>;. 93UA0D 1 0032 

T+/fE1)V PE1*PE1 SDC6PMCI5*LE9ax N 1 4CP9 { | S 1 HCB 1) | 09UCS52PCS (SRS (L I8>. 15*) &DA*PE1 *PD JYHAOD10033 

T+/GN5<XNS (XE9HC T2) LE6< . E4« $HS (L I5MCT5_ | E6*GN0dN 03GU8XPD&<. Y ; UA *PE1*?DA S|S)S + $ R5_M 2Y8A0D10034 

T*/H614CP9(| LI;/ .S|P02 + V 5=LL4SP Y6(|N&|$02 + V 5($ T5_V*PE1*PDA SDA S|S.iS5 »-CH:«C P9(< 4: . v :A0D 1 00 35 

T+/I- ( * a P1f6G9 fin? 5d->) LWA K"C0dUC 15* | HSDA*PE1* PD A SDA S|E.3V5 • ?C K : MCP9 ( | L 1 ;/ -UC 1K"H 7.MAOD10036 

T+/HF'?A LWA K"C 03UCI5* | H6DA*P El *PDA S|I)S+$R5_P GS (L08 ' $RS FA '-C H: BCH5> | C6HC05SC 63<- #$YA0D10037 

T*/-A:MCF5>$E6MA *PE1*PDA S|()S<X N KFX2) FGS (-U4 = . ES + | 05UCL5_FG& ($ RS* . T9< | K6 ($NSDA 5 $SHAOD10038 



T+/-aK/H + D-.-JQ-' >1<X54UCN5>( 6*P A1+/ 5_V 1)XH5_U LE/-YD>0 C" <LI8_I 5)$TS<| A4iU PS3A0D10039 



TFA<N0_XA82PDK4C R 1* | A4<SXB6*GT 1 KC D2;.KK0 



-2*AOD10040 



**************** **************** **************** **************** **************** *****pg A0D10041 

• SELECT THE NUK EER OF REVOLUTIC NS TO BE TIMED N THE T *0 FIGHTM OfT ADDRESS SHI" CHES *8CQA0D 10042 

• HHEN HALT -F9- DISPLAYED- RESE T HALT AFTER JtL ECTISu THE NUH3E 3 OF REVOLUTIONS TO *; ! 5d AOD 1 004 3 
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A0D1 DISK BEVCLUTION TEST 

OBJECT CARD LISTING 

CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 49 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 



* BE TIRED. THE DEFAULT IS TIHIN G 100 REVOLUTION S. *4C0 AOD 10O«H» 
**************** **************** **************** *************(.** **************** *****P66A0D 10045 

* DATA I NU MBER I APPHOXIM ATE TIKE * DAT A I NUH3ER I APPROXIMATE T IflE ♦P6*A0D10O46 

* SWITCH I CF REV I TO COHP LETE THE * SrJI TCH I OF REV I TO COrFLETE T HE *PSQA0D10O47 

* ENTRY I TE STED I CALCU IATION * ENT RY I TESTED I CALCULATION *PSUAOD100«I8 
* ♦ + * + ♦ *P6-A0D10O49 

* 00-01 I 100 I 12 SEC » 9 I 9O0 I 1 SIS 43 SE C *FAOAOD10050 

* 0, I 200 I 25 SEC * A I 1000 I 1 KIN 55 SE C *7LaA0D10G51 

* 03 I 300 I 36 SEC * 3 I 11O0 I 2 HIN 06 SE C *7C-AOD10052 

* 04 I i*C0 I 48 SEC * C I 1200 I 2 HIN 17 SE C *4LaAOD10053 

* 05 I 500 I 59 SEC * D I 1300 I 2 BIN 23 SE C *6LYA0D10O54 

* 06 I 6u0 I 1 HIN 10 SEC * E I 1400 I 2 HIN 39 SE C *R#*A0D10O55 

* 07 I 700 I 1 HIN 21 SEC * OF I 1500 I 2 HIN 50 SE C *$$DA0D10C56 

* 08 I 300 I 1 HIN 32 SEC * 10- FF I DEFAULT - ONLY TIME 100 R EV »6.3A0D10O57 
**************** **************** **************** **************** **************** *****p UA0D10O58 

£""'*E7* = -.DC"PH$ ="7H6F| | C ?% ASC R A SO Q 11540501700 6 1 17 1 1 #« AOD10O59 



LAST PAGE 
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